home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / Script.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  47.6 KB  |  1,077 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ;     File:        Script.p
  4. ; 
  5. ;     Copyright:    © 1983-1993 by Apple Computer, Inc.
  6. ;                 All rights reserved.
  7. ; 
  8. ;     Version:    System 7.1 for ETO #11
  9. ;     Created:    Tuesday, March 30, 1993 18:00
  10. ; 
  11. ; 
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes := 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingScript
  22. ; $SETC UsingScript := 1
  23.  
  24. ; $I+
  25. ; $SETC ScriptIncludes := UsingIncludes
  26. ; $SETC UsingIncludes := 1
  27. ; $IFC UNDEFINED UsingTypes
  28.  
  29. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  30. ; $ENDC
  31. ; $IFC UNDEFINED UsingQuickdraw
  32.  
  33. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)Quickdraw.p
  34. ; $ENDC
  35. ; $IFC UNDEFINED UsingIntlResources
  36.  
  37. (require-interface 'INTLRESOURCES); $I $$Shell(PInterfaces)IntlResources.p
  38. ; $ENDC
  39. ; $SETC UsingIncludes := ScriptIncludes
  40.  
  41. ;  Script System constants 
  42.  
  43. (defconstant $smSystemScript -1); designates system script.
  44. (defconstant $smCurrentScript -2); designates current font script.
  45. (defconstant $smAllScripts -3)  ; designates any script
  46.  
  47. (defconstant $smRoman 0)        ; Roman
  48. (defconstant $smJapanese 1)     ; Japanese
  49. (defconstant $smTradChinese 2)  ; Traditional Chinese
  50. (defconstant $smKorean 3)       ; Korean
  51. (defconstant $smArabic 4)       ; Arabic
  52. (defconstant $smHebrew 5)       ; Hebrew
  53. (defconstant $smGreek 6)        ; Greek
  54. (defconstant $smCyrillic 7)     ; Cyrillic
  55. (defconstant $smRSymbol 8)      ; Right-left symbol
  56. (defconstant $smDevanagari 9)   ; Devanagari
  57. (defconstant $smGurmukhi 10)    ; Gurmukhi
  58. (defconstant $smGujarati 11)    ; Gujarati
  59. (defconstant $smOriya 12)       ; Oriya
  60. (defconstant $smBengali 13)     ; Bengali
  61. (defconstant $smTamil 14)       ; Tamil
  62. (defconstant $smTelugu 15)      ; Telugu
  63. (defconstant $smKannada 16)     ; Kannada/Kanarese
  64. (defconstant $smMalayalam 17)   ; Malayalam
  65. (defconstant $smSinhalese 18)   ; Sinhalese
  66. (defconstant $smBurmese 19)     ; Burmese
  67. (defconstant $smKhmer 20)       ; Khmer/Cambodian
  68. (defconstant $smThai 21)        ; Thai
  69. (defconstant $smLaotian 22)     ; Laotian
  70. (defconstant $smGeorgian 23)    ; Georgian
  71. (defconstant $smArmenian 24)    ; Armenian
  72. (defconstant $smSimpChinese 25) ; Simplified Chinese
  73. (defconstant $smTibetan 26)     ; Tibetan
  74. (defconstant $smMongolian 27)   ; Mongolian
  75. (defconstant $smGeez 28)        ; Geez/Ethiopic
  76. (defconstant $smEthiopic 28)    ; Synonym for smGeez
  77. (defconstant $smEastEurRoman 29); Synonym for smSlavic
  78. (defconstant $smVietnamese 30)  ; Vietnamese
  79. (defconstant $smExtArabic 31)   ; extended Arabic
  80. (defconstant $smUninterp 32)    ; uninterpreted symbols, e.g. palette symbols
  81. (defconstant $smKlingon 32)     ; Klingon
  82.  
  83. ; Obsolete names for script systems (kept for backward compatibility)
  84.  
  85. (defconstant $smChinese 2)      ; (use smTradChinese or smSimpChinese)
  86. (defconstant $smRussian 7)      ; (old name for smCyrillic)
  87.  
  88. ;  smMaldivian = 25;         (no more smMaldivian!)
  89.  
  90. (defconstant $smAmharic 28)     ; (old name for smGeez)
  91. (defconstant $smSlavic 29)      ; (old name for smEastEurRoman)
  92. (defconstant $smSindhi 31)      ; (old name for smExtArabic)
  93.  
  94. ;  Language Codes 
  95.  
  96. (defconstant $langEnglish 0)    ;  smRoman script 
  97. (defconstant $langFrench 1)     ;  smRoman script 
  98. (defconstant $langGerman 2)     ;  smRoman script 
  99. (defconstant $langItalian 3)    ;  smRoman script 
  100. (defconstant $langDutch 4)      ;  smRoman script 
  101. (defconstant $langSwedish 5)    ;  smRoman script 
  102. (defconstant $langSpanish 6)    ;  smRoman script 
  103. (defconstant $langDanish 7)     ;  smRoman script 
  104. (defconstant $langPortuguese 8) ;  smRoman script 
  105. (defconstant $langNorwegian 9)  ;  smRoman script 
  106. (defconstant $langHebrew 10)    ;  smHebrew script 
  107. (defconstant $langJapanese 11)  ;  smJapanese script 
  108. (defconstant $langArabic 12)    ;  smArabic script 
  109. (defconstant $langFinnish 13)   ;  smRoman script 
  110. (defconstant $langGreek 14)     ;  smGreek script 
  111. (defconstant $langIcelandic 15) ;  extended Roman script 
  112. (defconstant $langMaltese 16)   ;  extended Roman script 
  113. (defconstant $langTurkish 17)   ;  extended Roman script 
  114. (defconstant $langCroatian 18)  ;  Serbo-Croatian in extended Roman script 
  115. (defconstant $langTradChinese 19);  Chinese in traditional characters 
  116. (defconstant $langUrdu 20)      ;  smArabic script 
  117. (defconstant $langHindi 21)     ;  smDevanagari script 
  118. (defconstant $langThai 22)      ;  smThai script 
  119. (defconstant $langKorean 23)    ;  smKorean script 
  120. (defconstant $langLithuanian 24);  smEastEurRoman script 
  121. (defconstant $langPolish 25)    ;  smEastEurRoman script 
  122. (defconstant $langHungarian 26) ;  smEastEurRoman script 
  123. (defconstant $langEstonian 27)  ;  smEastEurRoman script 
  124. (defconstant $langLettish 28)   ;  smEastEurRoman script 
  125. (defconstant $langLatvian 28)   ;  Synonym for langLettish 
  126. (defconstant $langLapponian 29) ;  extended Roman script 
  127. (defconstant $langLappish 29)   ;  Synonym for langLapponian 
  128. (defconstant $langFaeroese 30)  ;  smRoman script 
  129. (defconstant $langFarsi 31)     ;  smArabic script 
  130. (defconstant $langPersian 31)   ;  Synonym for langFarsi 
  131. (defconstant $langRussian 32)   ;  smCyrillic script 
  132. (defconstant $langSimpChinese 33);  Chinese in simplified characters 
  133. (defconstant $langFlemish 34)   ;  smRoman script 
  134. (defconstant $langIrish 35)     ;  smRoman script 
  135. (defconstant $langAlbanian 36)  ;  smRoman script 
  136. (defconstant $langRomanian 37)  ;  smEastEurRoman script 
  137. (defconstant $langCzech 38)     ;  smEastEurRoman script 
  138. (defconstant $langSlovak 39)    ;  smEastEurRoman script 
  139. (defconstant $langSlovenian 40) ;  smEastEurRoman script 
  140. (defconstant $langYiddish 41)   ;  smHebrew script 
  141. (defconstant $langSerbian 42)   ;  Serbo-Croatian in smCyrillic script 
  142. (defconstant $langMacedonian 43);  smCyrillic script 
  143. (defconstant $langBulgarian 44) ;  smCyrillic script 
  144. (defconstant $langUkrainian 45) ;  smCyrillic script 
  145. (defconstant $langByelorussian 46);  smCyrillic script 
  146. (defconstant $langUzbek 47)     ;  smCyrillic script 
  147. (defconstant $langKazakh 48)    ;  smCyrillic script 
  148. (defconstant $langAzerbaijani 49);  Azerbaijani in smCyrillic script (USSR) 
  149. (defconstant $langAzerbaijanAr 50);  Azerbaijani in smArabic script (Iran) 
  150. (defconstant $langArmenian 51)  ;  smArmenian script 
  151. (defconstant $langGeorgian 52)  ;  smGeorgian script 
  152. (defconstant $langMoldavian 53) ;  smCyrillic script 
  153. (defconstant $langKirghiz 54)   ;  smCyrillic script 
  154. (defconstant $langTajiki 55)    ;  smCyrillic script 
  155. (defconstant $langTurkmen 56)   ;  smCyrillic script 
  156. (defconstant $langMongolian 57) ;  Mongolian in smMongolian script 
  157. (defconstant $langMongolianCyr 58);  Mongolian in smCyrillic script 
  158. (defconstant $langPashto 59)    ;  smArabic script 
  159. (defconstant $langKurdish 60)   ;  smArabic script 
  160. (defconstant $langKashmiri 61)  ;  smArabic script 
  161. (defconstant $langSindhi 62)    ;  smExtArabic script 
  162. (defconstant $langTibetan 63)   ;  smTibetan script 
  163. (defconstant $langNepali 64)    ;  smDevanagari script 
  164. (defconstant $langSanskrit 65)  ;  smDevanagari script 
  165. (defconstant $langMarathi 66)   ;  smDevanagari script 
  166. (defconstant $langBengali 67)   ;  smBengali script 
  167. (defconstant $langAssamese 68)  ;  smBengali script 
  168. (defconstant $langGujarati 69)  ;  smGujarati script 
  169. (defconstant $langPunjabi 70)   ;  smGurmukhi script 
  170. (defconstant $langOriya 71)     ;  smOriya script 
  171. (defconstant $langMalayalam 72) ;  smMalayalam script 
  172. (defconstant $langKannada 73)   ;  smKannada script 
  173. (defconstant $langTamil 74)     ;  smTamil script 
  174. (defconstant $langTelugu 75)    ;  smTelugu script 
  175. (defconstant $langSinhalese 76) ;  smSinhalese script 
  176. (defconstant $langBurmese 77)   ;  smBurmese script 
  177. (defconstant $langKhmer 78)     ;  smKhmer script 
  178. (defconstant $langLao 79)       ;  smLaotian script 
  179. (defconstant $langVietnamese 80);  smVietnamese script 
  180. (defconstant $langIndonesian 81);  smRoman script 
  181. (defconstant $langTagalog 82)   ;  smRoman script 
  182. (defconstant $langMalayRoman 83);  Malay in smRoman script 
  183. (defconstant $langMalayArabic 84);  Malay in smArabic script 
  184. (defconstant $langAmharic 85)   ;  smEthiopic script 
  185. (defconstant $langTigrinya 86)  ;  smEthiopic script 
  186. (defconstant $langGalla 87)     ;  smEthiopic script 
  187. (defconstant $langOromo 87)     ;  Synonym for langGalla 
  188. (defconstant $langSomali 88)    ;  smRoman script 
  189. (defconstant $langSwahili 89)   ;  smRoman script 
  190. (defconstant $langRuanda 90)    ;  smRoman script 
  191. (defconstant $langRundi 91)     ;  smRoman script 
  192. (defconstant $langChewa 92)     ;  smRoman script 
  193. (defconstant $langMalagasy 93)  ;  smRoman script 
  194. (defconstant $langEsperanto 94) ;  extended Roman script 
  195. (defconstant $langWelsh 128)    ;  smRoman script 
  196. (defconstant $langBasque 129)   ;  smRoman script 
  197. (defconstant $langCatalan 130)  ;  smRoman script 
  198. (defconstant $langLatin 131)    ;  smRoman script 
  199. (defconstant $langQuechua 132)  ;  smRoman script 
  200. (defconstant $langGuarani 133)  ;  smRoman script 
  201. (defconstant $langAymara 134)   ;  smRoman script 
  202. (defconstant $langTatar 135)    ;  smCyrillic script 
  203. (defconstant $langUighur 136)   ;  smArabic script 
  204. (defconstant $langDzongkha 137) ;  (lang of Bhutan) smTibetan script 
  205. (defconstant $langJavaneseRom 138);  Javanese in smRoman script 
  206. (defconstant $langSundaneseRom 139);  Sundanese in smRoman script 
  207.  
  208. ;  Obsolete names, kept for backward compatibility 
  209.  
  210. (defconstant $langPortugese 8)  ;  old misspelled version, kept for compatibility 
  211. (defconstant $langMalta 16)     ;  old misspelled version, kept for compatibility 
  212. (defconstant $langYugoslavian 18);  (use langCroatian, langSerbian, etc.) 
  213. (defconstant $langChinese 19)   ;  (use langTradChinese or langSimpChinese) 
  214.  
  215. ;  Regional version codes 
  216.  
  217. (defconstant $verUS 0)
  218. (defconstant $verFrance 1)
  219. (defconstant $verBritain 2)
  220. (defconstant $verGermany 3)
  221. (defconstant $verItaly 4)
  222. (defconstant $verNetherlands 5)
  223. (defconstant $verFrBelgiumLux 6);  French for Belgium & Luxembourg 
  224. (defconstant $verSweden 7)
  225. (defconstant $verSpain 8)
  226. (defconstant $verDenmark 9)
  227. (defconstant $verPortugal 10)
  228. (defconstant $verFrCanada 11)
  229. (defconstant $verNorway 12)
  230. (defconstant $verIsrael 13)
  231. (defconstant $verJapan 14)
  232. (defconstant $verAustralia 15)
  233. (defconstant $verArabic 16)     ;  synonym for verArabia 
  234. (defconstant $verFinland 17)
  235. (defconstant $verFrSwiss 18)    ;  French Swiss 
  236. (defconstant $verGrSwiss 19)    ;  German Swiss 
  237. (defconstant $verGreece 20)
  238. (defconstant $verIceland 21)
  239. (defconstant $verMalta 22)
  240. (defconstant $verCyprus 23)
  241. (defconstant $verTurkey 24)
  242. (defconstant $verYugoCroatian 25);  Croatian system for Yugoslavia 
  243. (defconstant $verIndiaHindi 33) ;  Hindi system for India 
  244. (defconstant $verPakistan 34)
  245. (defconstant $verLithuania 41)
  246. (defconstant $verPoland 42)
  247. (defconstant $verHungary 43)
  248. (defconstant $verEstonia 44)
  249. (defconstant $verLatvia 45)
  250. (defconstant $verLapland 46)
  251. (defconstant $verFaeroeIsl 47)
  252. (defconstant $verIran 48)
  253. (defconstant $verRussia 49)
  254. (defconstant $verIreland 50)    ;  English-language version for Ireland 
  255. (defconstant $verKorea 51)
  256. (defconstant $verChina 52)
  257. (defconstant $verTaiwan 53)
  258. (defconstant $verThailand 54)
  259.  
  260. (defconstant $minCountry #$VERUS)
  261. (defconstant $maxCountry #$VERTHAILAND)
  262.  
  263. ; Obsolete region code names, kept for backward compatibility
  264.  
  265. (defconstant $verBelgiumLux 6)  ;  (use verFrBelgiumLux instead, less ambiguous) 
  266. (defconstant $verArabia 16)
  267. (defconstant $verYugoslavia 25) ;  (use verYugoCroatian instead, less ambiguous) 
  268. (defconstant $verIndia 33)      ;  (use verIndiaHindi instead, less ambiguous) 
  269.  
  270. ;  Calendar Codes 
  271.  
  272. (defconstant $calGregorian 0)
  273. (defconstant $calArabicCivil 1)
  274. (defconstant $calArabicLunar 2)
  275. (defconstant $calJapanese 3)
  276. (defconstant $calJewish 4)
  277. (defconstant $calCoptic 5)
  278. (defconstant $calPersian 6)
  279.  
  280. ;  Integer Format Codes 
  281.  
  282. (defconstant $intWestern 0)
  283. (defconstant $intArabic 1)
  284. (defconstant $intRoman 2)
  285. (defconstant $intJapanese 3)
  286. (defconstant $intEuropean 4)
  287. (defconstant $intOutputMask #X8000)
  288.  
  289. ;  CharByte byte types 
  290.  
  291. (defconstant $smSingleByte 0)
  292. (defconstant $smFirstByte -1)
  293. (defconstant $smLastByte 1)
  294. (defconstant $smMiddleByte 2)
  295.  
  296. ;  CharType field masks 
  297.  
  298. (defconstant $smcTypeMask #XF)
  299. (defconstant $smcReserved #XF0)
  300. (defconstant $smcClassMask #XF00)
  301. (defconstant $smcOrientationMask #X1000); two-byte script glyph orientation
  302. (defconstant $smcRightMask #X2000)
  303. (defconstant $smcUpperMask #X4000)
  304. (defconstant $smcDoubleMask #X8000)
  305.  
  306. ;  Basic CharType character types 
  307.  
  308. (defconstant $smCharPunct #X0)
  309. (defconstant $smCharAscii #X1)
  310. (defconstant $smCharEuro #X7)
  311. (defconstant $smCharExtAscii #X7);  More correct synonym for smCharEuro 
  312.  
  313. ;  Additional CharType character types for script systems 
  314.  
  315. (defconstant $smCharKatakana #X2); Japanese Katakana
  316. (defconstant $smCharHiragana #X3); Japanese Hiragana
  317. (defconstant $smCharIdeographic #X4); Hanzi, Kanji, Hanja
  318. (defconstant $smCharTwoByteGreek #X5); 2-byte Greek in Far East systems
  319. (defconstant $smCharTwoByteRussian #X6); 2-byte Cyrillic in Far East systems
  320. (defconstant $smCharBidirect #X8); Arabic/Hebrew
  321. (defconstant $smCharContextualLR #X9); Contextual left-right: Thai, Indic scripts
  322. (defconstant $smCharNonContextualLR #XA); Non-contextual left-right: Cyrillic, Greek
  323. (defconstant $smCharHangul #XC) ; Korean Hangul
  324. (defconstant $smCharJamo #XD)   ; Korean Jamo
  325. (defconstant $smCharBopomofo #XE); Chinese Bopomofo
  326.  
  327. ;  old names for some of above, for backward compatibility 
  328.  
  329. (defconstant $smCharFISKana #X2); Katakana
  330. (defconstant $smCharFISGana #X3); Hiragana
  331. (defconstant $smCharFISIdeo #X4); Hanzi, Kanji, Hanja
  332. (defconstant $smCharFISGreek #X5); 2-byte Greek in Far East systems
  333. (defconstant $smCharFISRussian #X6); 2-byte Cyrillic in Far East systems
  334.  
  335. ;  CharType classes for punctuation (smCharPunct) 
  336.  
  337. (defconstant $smPunctNormal #X0)
  338. (defconstant $smPunctNumber #X100)
  339. (defconstant $smPunctSymbol #X200)
  340. (defconstant $smPunctBlank #X300)
  341.  
  342. ;  Additional CharType classes for punctuation in two-byte systems 
  343.  
  344. (defconstant $smPunctRepeat #X400);  repeat marker 
  345. (defconstant $smPunctGraphic #X500);  line graphics 
  346.  
  347. ;  CharType Katakana and Hiragana classes for two-byte systems 
  348.  
  349. (defconstant $smKanaSmall #X100); small kana character
  350. (defconstant $smKanaHardOK #X200); can have dakuten
  351. (defconstant $smKanaSoftOK #X300); can have dakuten or han-dakuten
  352.  
  353. ;  CharType Ideographic classes for two-byte systems 
  354.  
  355. (defconstant $smIdeographicLevel1 #X0); level 1 char
  356. (defconstant $smIdeographicLevel2 #X100); level 2 char
  357. (defconstant $smIdeographicUser #X200); user char
  358.  
  359. ;  old names for above, for backward compatibility 
  360.  
  361. (defconstant $smFISClassLvl1 #X0); level 1 char
  362. (defconstant $smFISClassLvl2 #X100); level 2 char
  363. (defconstant $smFISClassUser #X200); user char
  364.  
  365. ;  CharType Jamo classes for Korean systems 
  366.  
  367. (defconstant $smJamoJaeum #X0)  ; simple consonant char
  368. (defconstant $smJamoBogJaeum #X100); complex consonant char
  369. (defconstant $smJamoMoeum #X200); simple vowel char
  370. (defconstant $smJamoBogMoeum #X300); complex vowel char
  371.  
  372. ;  CharType glyph orientation for two-byte systems 
  373.  
  374. (defconstant $smCharHorizontal #X0);  horizontal character form, or for both 
  375. (defconstant $smCharVertical #X1000);  vertical character form 
  376.  
  377. ;  CharType directions 
  378.  
  379. (defconstant $smCharLeft #X0)
  380. (defconstant $smCharRight #X2000)
  381.  
  382. ;  CharType case modifers 
  383.  
  384. (defconstant $smCharLower #X0)
  385. (defconstant $smCharUpper #X4000)
  386.  
  387. ;  CharType character size modifiers (1 or multiple bytes). 
  388.  
  389. (defconstant $smChar1byte #X0)
  390. (defconstant $smChar2byte #X8000)
  391.  
  392. ;  TransliterateText target types for Roman 
  393.  
  394. (defconstant $smTransAscii 0)   ; convert to ASCII
  395. (defconstant $smTransNative 1)  ; convert to font script
  396. (defconstant $smTransCase #XFE) ; convert case for all text
  397. (defconstant $smTransSystem #XFF); convert to system script
  398.  
  399. ;  TransliterateText target types for two-byte scripts 
  400.  
  401. (defconstant $smTransAscii1 2)  ; 1-byte Roman
  402. (defconstant $smTransAscii2 3)  ; 2-byte Roman
  403. (defconstant $smTransKana1 4)   ; 1-byte Japanese Katakana
  404. (defconstant $smTransKana2 5)   ; 2-byte Japanese Katakana
  405. (defconstant $smTransGana2 7)   ; 2-byte Japanese Hiragana (no 1-byte Hiragana)
  406. (defconstant $smTransHangul2 8) ; 2-byte Korean Hangul
  407. (defconstant $smTransJamo2 9)   ; 2-byte Korean Jamo
  408. (defconstant $smTransBopomofo2 10); 2-byte Chinese Bopomofo
  409.  
  410. ;  TransliterateText target modifiers 
  411.  
  412. (defconstant $smTransLower #X4000); target becomes lowercase
  413. (defconstant $smTransUpper #X8000); target becomes uppercase
  414.  
  415. ;  TransliterateText resource format numbers 
  416.  
  417. (defconstant $smTransRuleBaseFormat 1); Rule based trsl resource format 
  418. (defconstant $smTransHangulFormat 2); Table based Hangul trsl resource format
  419.  
  420. ;  TransliterateText property flags 
  421.  
  422. (defconstant $smTransPreDoubleByting 1); Convert all text to double byte before transliteration
  423. (defconstant $smTransPreLowerCasing 2); Convert all text to lower case before transliteration
  424.  
  425. ;  TransliterateText source mask - general 
  426.  
  427. (defconstant $smMaskAll #XFFFFFFFF); Convert all text
  428.  
  429. ;  TransliterateText source masks 
  430.  
  431. (defconstant $smMaskAscii #X1)  ; 2^smTransAscii
  432. (defconstant $smMaskNative #X2) ; 2^smTransNative
  433.  
  434. ;  TransliterateText source masks for two-byte scripts 
  435.  
  436. (defconstant $smMaskAscii1 #X4) ; 2^smTransAscii1
  437. (defconstant $smMaskAscii2 #X8) ; 2^smTransAscii2
  438. (defconstant $smMaskKana1 #X10) ; 2^smTransKana1
  439. (defconstant $smMaskKana2 #X20) ; 2^smTransKana2
  440. (defconstant $smMaskGana2 #X80) ; 2^smTransGana2
  441. (defconstant $smMaskHangul2 #X100); 2^smTransHangul2
  442. (defconstant $smMaskJamo2 #X200); 2^smTransJamo2
  443. (defconstant $smMaskBopomofo2 #X400); 2^smTransBopomofo2
  444.  
  445. ;  Result values from GetSMVariable, SetSMVariable, GetScriptVariable and SetScriptVariable calls. 
  446.  
  447. (defconstant $smNotInstalled 0) ; routine not available in script
  448. (defconstant $smBadVerb -1)     ; Bad verb passed to a routine
  449. (defconstant $smBadScript -2)   ; Bad script code passed to a routine
  450.  
  451. ;  Values for script redraw flag. 
  452.  
  453. (defconstant $smRedrawChar 0)   ; Redraw character only
  454. (defconstant $smRedrawWord 1)   ; Redraw entire word (2-byte systems)
  455. (defconstant $smRedrawLine -1)  ; Redraw entire line (bidirectional systems)
  456.  
  457. ;  GetSMVariable and SetSMVariable verbs 
  458.  
  459. (defconstant $smVersion 0)      ; Script Manager version number
  460. (defconstant $smMunged 2)       ; Globals change count
  461. (defconstant $smEnabled 4)      ; Count of enabled scripts, incl Roman
  462. (defconstant $smBidirect 6)     ; At least one bidirectional script
  463. (defconstant $smFontForce 8)    ; Force font flag
  464. (defconstant $smIntlForce 10)   ; Force intl flag
  465. (defconstant $smForced 12)      ; Script was forced to system script
  466. (defconstant $smDefault 14)     ; Script was defaulted to Roman script
  467. (defconstant $smPrint 16)       ; Printer action routine
  468. (defconstant $smSysScript 18)   ; System script
  469. (defconstant $smLastScript 20)  ; Last keyboard script
  470. (defconstant $smKeyScript 22)   ; Keyboard script
  471. (defconstant $smSysRef 24)      ; System folder refNum
  472. (defconstant $smKeyCache 26)    ; obsolete
  473. (defconstant $smKeySwap 28)     ; Swapping table handle
  474. (defconstant $smGenFlags 30)    ; General flags long
  475. (defconstant $smOverride 32)    ; Script override flags
  476. (defconstant $smCharPortion 34) ; Ch vs SpExtra proportion
  477.  
  478. ;  New for System 7.0: 
  479.  
  480. (defconstant $smDoubleByte 36)  ; Flag for double-byte script installed
  481. (defconstant $smKCHRCache 38)   ; Returns pointer to KCHR cache
  482. (defconstant $smRegionCode 40)  ; Returns current region code (verXxx)
  483. (defconstant $smKeyDisableState 42); Returns current keyboard disable state
  484.  
  485. ;  GetScriptVariable and SetScriptVariable verbs.
  486. ; Note: Verbs private to script systems are negative, while
  487. ; those general across script systems are non-negative. 
  488.  
  489. (defconstant $smScriptVersion 0); Script software version
  490. (defconstant $smScriptMunged 2) ; Script entry changed count
  491. (defconstant $smScriptEnabled 4); Script enabled flag
  492. (defconstant $smScriptRight 6)  ; Right to left flag
  493. (defconstant $smScriptJust 8)   ; Justification flag
  494. (defconstant $smScriptRedraw 10); Word redraw flag
  495. (defconstant $smScriptSysFond 12); Preferred system font
  496. (defconstant $smScriptAppFond 14); Preferred Application font
  497. (defconstant $smScriptBundle 16); Beginning of itlb verbs
  498. (defconstant $smScriptNumber 16); Script itl0 id
  499. (defconstant $smScriptDate 18)  ; Script itl1 id
  500. (defconstant $smScriptSort 20)  ; Script itl2 id
  501. (defconstant $smScriptFlags 22) ; flags word
  502. (defconstant $smScriptToken 24) ; Script itl4 id
  503. (defconstant $smScriptEncoding 26); id of optional itl5, if present
  504. (defconstant $smScriptLang 28)  ; Current language for script
  505. (defconstant $smScriptNumDate 30); Script Number/Date formats.
  506. (defconstant $smScriptKeys 32)  ; Script KCHR id
  507. (defconstant $smScriptIcon 34)  ; ID # of SICN or kcs#/kcs4/kcs8 suite
  508. (defconstant $smScriptPrint 36) ; Script printer action routine
  509. (defconstant $smScriptTrap 38)  ; Trap entry pointer
  510. (defconstant $smScriptCreator 40); Script file creator
  511. (defconstant $smScriptFile 42)  ; Script file name
  512. (defconstant $smScriptName 44)  ; Script name
  513.  
  514. ;  There is a hole here for old Kanji private verbs 46-76 
  515. ; 
  516. ;  New for System 7.0: 
  517.  
  518. (defconstant $smScriptMonoFondSize 78); default monospace FOND (hi) & size (lo)
  519. (defconstant $smScriptPrefFondSize 80); preferred FOND (hi) & size (lo)
  520. (defconstant $smScriptSmallFondSize 82); default small FOND (hi) & size (lo)
  521. (defconstant $smScriptSysFondSize 84); default system FOND (hi) & size (lo)
  522. (defconstant $smScriptAppFondSize 86); default app FOND (hi) & size (lo)
  523. (defconstant $smScriptHelpFondSize 88); default Help Mgr FOND (hi) & size (lo)
  524. (defconstant $smScriptValidStyles 90); mask of valid styles for script
  525. (defconstant $smScriptAliasStyle 92); style (set) to use for aliases
  526.  
  527. ;  Special script code values for International Utilities 
  528.  
  529. (defconstant $iuSystemScript -1);  <obsolete>  system script 
  530. (defconstant $iuCurrentScript -2);  <obsolete>  current script (for font of grafPort) 
  531.  
  532. ;  Negative verbs for KeyScript 
  533.  
  534. (defconstant $smKeyNextScript -1);  Switch to next available script 
  535. (defconstant $smKeySysScript -2);  Switch to the system script 
  536. (defconstant $smKeySwapScript -3);  Switch to previously-used script 
  537.  
  538. ;  New for System 7.0: 
  539.  
  540. (defconstant $smKeyNextKybd -4) ;  Switch to next keyboard in current keyscript 
  541. (defconstant $smKeySwapKybd -5) ;  Switch to previously-used keyboard in current keyscript 
  542.  
  543. (defconstant $smKeyDisableKybds -6);  Disable keyboards not in system or Roman script 
  544. (defconstant $smKeyEnableKybds -7);  Re-enable keyboards for all enabled scripts 
  545. (defconstant $smKeyToggleInline -8);  Toggle inline input for current keyscript 
  546. (defconstant $smKeyToggleDirection -9);  Toggle default line direction (TESysJust) 
  547. (defconstant $smKeyNextInputMethod -10);  Switch to next input method in current keyscript 
  548. (defconstant $smKeySwapInputMethod -11);  Switch to last-used input method in current keyscript 
  549.  
  550. (defconstant $smKeyDisableKybdSwitch -12);  Disable switching from the current keyboard 
  551.  
  552. (defconstant $smKeySetDirLeftRight -15);  Set default line dir to left-right, align left 
  553. (defconstant $smKeySetDirRightLeft -16);  Set default line dir to right-left, align right 
  554. (defconstant $smKeyRoman -17)   ;  Set keyscript to Roman. Does nothing if Roman-only
  555. ;                                         system, unlike KeyScript(smRoman) which forces
  556. ;                                         an update to current default Roman keyboard 
  557.  
  558. ;  Bits in the smScriptFlags word
  559. ; (bits above 8 are non-static) 
  560.  
  561. (defconstant $smsfIntellCP 0)   ; Script has intelligent cut & paste
  562. (defconstant $smsfSingByte 1)   ; Script has only single bytes
  563. (defconstant $smsfNatCase 2)    ; Native chars have upper & lower case
  564. (defconstant $smsfContext 3)    ; Script is contextual
  565. (defconstant $smsfNoForceFont 4); Script will not force characters
  566. (defconstant $smsfB0Digits 5)   ; Script has alternate digits at B0-B9
  567. (defconstant $smsfAutoInit 6)   ; Auto initialize the script
  568. (defconstant $smsfUnivExt 7)    ; Script is handled by universal extension
  569. (defconstant $smsfSynchUnstyledTE 8); Script synchronizes for unstyled TE
  570. (defconstant $smsfForms 13)     ; Uses contextual forms for letters
  571. (defconstant $smsfLigatures 14) ; Uses contextual ligatures
  572. (defconstant $smsfReverse 15)   ; Reverses native text, right-left
  573.  
  574. ;  Bits in the smGenFlags long.
  575. ; First (high-order) byte is set from itlc flags byte. 
  576.  
  577. (defconstant $smfShowIcon 31)   ; Show icon even if only one script
  578. (defconstant $smfDualCaret 30)  ; Use dual caret for mixed direction text
  579. (defconstant $smfNameTagEnab 29); Reserved for internal use
  580. (defconstant $smfUseAssocFontInfo 28); Use the associated font info for FontMetrics calls 
  581.  
  582. ;  Roman script constants 
  583. ; 
  584. ;  The following are here for backward compatibility, but should not be used. 
  585. ;  This information should be obtained using GetScript. 
  586.  
  587. (defconstant $romanSysFond #X3FFF); system font id number
  588. (defconstant $romanAppFond 3)   ; application font id number
  589. (defconstant $romanFlags #X7)   ; roman settings
  590.  
  591. ;  Script Manager font equates. 
  592.  
  593. (defconstant $smFondStart #X4000); start from 16K
  594. (defconstant $smFondEnd #XC000) ; past end of range at 48K
  595.  
  596. ;  Miscellaneous font equates. 
  597.  
  598. (defconstant $smUprHalfCharSet #X80); first char code in top half of std char set
  599.  
  600. ;  Character Set Extensions 
  601.  
  602. (defconstant $diaeresisUprY #XD9)
  603. (defconstant $fraction #XDA)
  604. (defconstant $intlCurrency #XDB)
  605. (defconstant $leftSingGuillemet #XDC)
  606. (defconstant $rightSingGuillemet #XDD)
  607. (defconstant $fiLigature #XDE)
  608. (defconstant $flLigature #XDF)
  609. (defconstant $dblDagger #XE0)
  610. (defconstant $centeredDot #XE1)
  611. (defconstant $baseSingQuote #XE2)
  612. (defconstant $baseDblQuote #XE3)
  613. (defconstant $perThousand #XE4)
  614. (defconstant $circumflexUprA #XE5)
  615. (defconstant $circumflexUprE #XE6)
  616. (defconstant $acuteUprA #XE7)
  617. (defconstant $diaeresisUprE #XE8)
  618. (defconstant $graveUprE #XE9)
  619. (defconstant $acuteUprI #XEA)
  620. (defconstant $circumflexUprI #XEB)
  621. (defconstant $diaeresisUprI #XEC)
  622. (defconstant $graveUprI #XED)
  623. (defconstant $acuteUprO #XEE)
  624. (defconstant $circumflexUprO #XEF)
  625. (defconstant $appleLogo #XF0)
  626. (defconstant $graveUprO #XF1)
  627. (defconstant $acuteUprU #XF2)
  628. (defconstant $circumflexUprU #XF3)
  629. (defconstant $graveUprU #XF4)
  630. (defconstant $dotlessLwrI #XF5)
  631. (defconstant $circumflex #XF6)
  632. (defconstant $tilde #XF7)
  633. (defconstant $macron #XF8)
  634. (defconstant $breveMark #XF9)
  635. (defconstant $overDot #XFA)
  636. (defconstant $ringMark #XFB)
  637. (defconstant $cedilla #XFC)
  638. (defconstant $doubleAcute #XFD)
  639. (defconstant $ogonek #XFE)
  640. (defconstant $hachek #XFF)
  641.  
  642. ;  TokenType values 
  643.  
  644. (defconstant $tokenIntl 4)      ; the itl resource number of the tokenizer
  645. (defconstant $tokenEmpty -1)    ; used internally as an empty flag
  646. (defconstant $tokenUnknown 0)   ; chars that do not match a defined token type
  647. (defconstant $tokenWhite 1)     ; white space
  648. (defconstant $tokenLeftLit 2)   ; literal begin
  649. (defconstant $tokenRightLit 3)  ; literal end
  650. (defconstant $tokenAlpha 4)     ; alphabetic
  651. (defconstant $tokenNumeric 5)   ; numeric
  652. (defconstant $tokenNewLine 6)   ; new line
  653. (defconstant $tokenLeftComment 7); open comment
  654. (defconstant $tokenRightComment 8); close comment
  655. (defconstant $tokenLiteral 9)   ; literal
  656. (defconstant $tokenEscape 10)   ; character escape (e.g. '\' in "\n", "\t")
  657. (defconstant $tokenAltNum 11)   ; alternate number (e.g. $B0-B9 in Arabic,Hebrew)
  658. (defconstant $tokenRealNum 12)  ; real number
  659. (defconstant $tokenAltReal 13)  ; alternate real number
  660. (defconstant $tokenReserve1 14) ; reserved
  661. (defconstant $tokenReserve2 15) ; reserved
  662. (defconstant $tokenLeftParen 16); open parenthesis
  663. (defconstant $tokenRightParen 17); close parenthesis
  664. (defconstant $tokenLeftBracket 18); open square bracket
  665. (defconstant $tokenRightBracket 19); close square bracket
  666. (defconstant $tokenLeftCurly 20); open curly bracket
  667. (defconstant $tokenRightCurly 21); close curly bracket
  668. (defconstant $tokenLeftEnclose 22); open guillemet
  669. (defconstant $tokenRightEnclose 23); close guillemet
  670. (defconstant $tokenPlus 24)
  671. (defconstant $tokenMinus 25)
  672. (defconstant $tokenAsterisk 26) ; times/multiply
  673. (defconstant $tokenDivide 27)
  674. (defconstant $tokenPlusMinus 28); plus or minus symbol
  675. (defconstant $tokenSlash 29)
  676. (defconstant $tokenBackSlash 30)
  677. (defconstant $tokenLess 31)     ; less than symbol
  678. (defconstant $tokenGreat 32)    ; greater than symbol
  679. (defconstant $tokenEqual 33)
  680. (defconstant $tokenLessEqual2 34); less than or equal, 2 characters (e.g. <=)
  681. (defconstant $tokenLessEqual1 35); less than or equal, 1 character
  682. (defconstant $tokenGreatEqual2 36); greater than or equal, 2 characters (e.g. >=)
  683. (defconstant $tokenGreatEqual1 37); greater than or equal, 1 character
  684. (defconstant $token2Equal 38)   ; double equal (e.g. ==)
  685. (defconstant $tokenColonEqual 39); colon equal
  686. (defconstant $tokenNotEqual 40) ; not equal, 1 character
  687. (defconstant $tokenLessGreat 41); less/greater, Pascal not equal (e.g. <>)
  688. (defconstant $tokenExclamEqual 42); exclamation equal, C not equal (e.g. !=)
  689. (defconstant $tokenExclam 43)   ; exclamation point
  690. (defconstant $tokenTilde 44)    ; centered tilde
  691. (defconstant $tokenComma 45)
  692. (defconstant $tokenPeriod 46)
  693. (defconstant $tokenLeft2Quote 47); open double quote
  694. (defconstant $tokenRight2Quote 48); close double quote
  695. (defconstant $tokenLeft1Quote 49); open single quote
  696. (defconstant $tokenRight1Quote 50); close single quote
  697. (defconstant $token2Quote 51)   ; double quote
  698. (defconstant $token1Quote 52)   ; single quote
  699. (defconstant $tokenSemicolon 53)
  700. (defconstant $tokenPercent 54)
  701. (defconstant $tokenCaret 55)
  702. (defconstant $tokenUnderline 56)
  703. (defconstant $tokenAmpersand 57)
  704. (defconstant $tokenAtSign 58)
  705. (defconstant $tokenBar 59)      ; vertical bar
  706. (defconstant $tokenQuestion 60)
  707. (defconstant $tokenPi 61)       ; lower-case pi
  708. (defconstant $tokenRoot 62)     ; square root symbol
  709. (defconstant $tokenSigma 63)    ; capital sigma
  710. (defconstant $tokenIntegral 64) ; integral sign
  711. (defconstant $tokenMicro 65)
  712. (defconstant $tokenCapPi 66)    ; capital pi
  713. (defconstant $tokenInfinity 67)
  714. (defconstant $tokenColon 68)
  715. (defconstant $tokenHash 69)     ; e.g. #
  716. (defconstant $tokenDollar 70)
  717. (defconstant $tokenNoBreakSpace 71); non-breaking space
  718. (defconstant $tokenFraction 72)
  719. (defconstant $tokenIntlCurrency 73)
  720. (defconstant $tokenLeftSingGuillemet 74)
  721. (defconstant $tokenRightSingGuillemet 75)
  722. (defconstant $tokenPerThousand 76)
  723. (defconstant $tokenEllipsis 77)
  724. (defconstant $tokenCenterDot 78)
  725. (defconstant $tokenNil 127)
  726. (defconstant $delimPad -2)
  727.  
  728. ;  obsolete, misspelled token names kept for backward compatibility 
  729.  
  730. (defconstant $tokenTilda 44)
  731. (defconstant $tokenCarat 55)
  732.  
  733. ;  Table selectors for GetItlTable 
  734.  
  735. (defconstant $smWordSelectTable 0);  get word select break table from 'itl2' 
  736. (defconstant $smWordWrapTable 1);  get word wrap break table from 'itl2' 
  737. (defconstant $smNumberPartsTable 2);  get default number parts table from 'itl4' 
  738. (defconstant $smUnTokenTable 3) ;  get unToken table from 'itl4' 
  739. (defconstant $smWhiteSpaceList 4);  get white space list from 'itl4' 
  740.  
  741. (defconstant $iuWordSelectTable 0);  <obsolete>  get word select break table from 'itl2' 
  742. (defconstant $iuWordWrapTable 1);  <obsolete>  get word wrap break table from 'itl2' 
  743. (defconstant $iuNumberPartsTable 2);  <obsolete>  get default number parts table from 'itl4' 
  744. (defconstant $iuUnTokenTable 3) ;  <obsolete>  get unToken table from 'itl4' 
  745. (defconstant $iuWhiteSpaceList 4);  <obsolete>  get white space list from 'itl4' 
  746.  
  747. (def-mactype :TOKENRESULTS (find-mactype :UNSIGNED-BYTE))
  748. (defconstant $tokenOK 0)
  749. (defconstant $tokenOverflow 1)
  750. (defconstant $stringOverflow 2)
  751. (defconstant $badDelim 3)
  752. (defconstant $badEnding 4)
  753. (defconstant $crash 5)
  754.  
  755. (defrecord CharByteTable (array (ARRAY :SIGNED-BYTE 256)))
  756.  
  757. (def-mactype :TOKENTYPE (find-mactype :SIGNED-INTEGER))
  758. (defrecord DelimType (array (ARRAY :SIGNED-INTEGER 2)))
  759. (defrecord CommentType (array (ARRAY :SIGNED-INTEGER 4)))
  760.  
  761. (def-mactype :TOKENRECPTR (find-mactype :POINTER))
  762. (defrecord TokenRec 
  763.    (theToken :SIGNED-INTEGER)
  764.    (position :POINTER)          ; pointer into original source
  765.    (length :SIGNED-LONG)        ; length of text in original source
  766.    (stringPosition (:POINTER (:STRING 255))); Pascal/C string copy of identifier
  767.    )
  768.  
  769. (def-mactype :TOKENBLOCKPTR (find-mactype :POINTER))
  770. (defrecord TokenBlock 
  771.    (source :POINTER)            ; pointer to stream of characters
  772.    (sourceLength :SIGNED-LONG)  ; length of source stream
  773.    (tokenList :POINTER)         ; pointer to array of tokens
  774.    (tokenLength :SIGNED-LONG)   ; maximum length of TokenList
  775.    (tokenCount :SIGNED-LONG)    ; number tokens generated by tokenizer
  776.    (stringList :POINTER)        ; pointer to stream of identifiers
  777.    (stringLength :SIGNED-LONG)  ; length of string list
  778.    (stringCount :SIGNED-LONG)   ; number of bytes currently used
  779.    (doString :BOOLEAN)          ; make strings & put into StringList
  780.    (doAppend :BOOLEAN)          ; append to TokenList rather than replace
  781.    (doAlphanumeric :BOOLEAN)    ; identifiers may include numeric
  782.    (doNest :BOOLEAN)            ; do comments nest?
  783.    (leftDelims (:ARRAY :SIGNED-INTEGER 2))
  784.    (rightDelims (:ARRAY :SIGNED-INTEGER 2))
  785.    (leftComment (:ARRAY :SIGNED-INTEGER 4))
  786.    (rightComment (:ARRAY :SIGNED-INTEGER 4))
  787.    (escapeCode :SIGNED-INTEGER) ; escape symbol code
  788.    (decimalCode :SIGNED-INTEGER)
  789.    (itlResource :HANDLE)        ; handle to itl4 resource of current script
  790.    (reserved (:ARRAY :SIGNED-LONG 8)); must be zero!
  791.    )
  792.  
  793.  
  794. (deftrap _fontscript nil
  795.    (:stack :signed-integer)
  796.    (:stack-trap #xA8B5 ((+ (ash 33280 16) 0) :signed-longint)))
  797.  
  798. (deftrap _intlscript nil
  799.    (:stack :signed-integer)
  800.    (:stack-trap #xA8B5 ((+ (ash 33280 16) 2) :signed-longint)))
  801.  
  802. (deftrap _keyscript ((code :signed-integer))
  803.    nil
  804.    (:stack-trap #xA8B5 code ((+ (ash 32770 16) 4) :signed-longint)))
  805.  
  806. (deftrap _charbyte ((textbuf :pointer) (textoffset :signed-integer))
  807.    (:stack :signed-integer)
  808.    (:stack-trap #xA8B5 textbuf textoffset ((+ (ash 33286 16) 16) :signed-longint)))
  809.  
  810. (deftrap _chartype ((textbuf :pointer) (textoffset :signed-integer))
  811.    (:stack :signed-integer)
  812.    (:stack-trap #xA8B5 textbuf textoffset ((+ (ash 33286 16) 18) :signed-longint)))
  813.  
  814. (deftrap _transliterate ((srchandle :handle) (dsthandle :handle) (target :signed-integer) (srcmask :signed-long))
  815.    (:stack :signed-integer)
  816.    (:stack-trap #xA8B5 srchandle dsthandle target srcmask ((+ (ash 33294 16) 24) :signed-longint)))
  817.  
  818. (deftrap _parsetable ((table (:pointer :charbytetable)))
  819.    (:stack :boolean)
  820.    (:stack-trap #xA8B5 table ((+ (ash 33284 16) 34) :signed-longint)))
  821.  
  822. (deftrap _getsysdirection nil
  823.    (:no-trap :signed-integer)
  824.    (:no-trap (%get-signed-word (%int-to-ptr 2988))))
  825.  
  826. (deftrap _getsysjust nil
  827.    (:no-trap :signed-integer)
  828.    (:no-trap (%get-signed-word (%int-to-ptr 2988))))
  829.  
  830. (deftrap _setsysdirection ((newjust :signed-integer))
  831.    nil
  832.    (:no-trap (%put-word (%int-to-ptr 2988) newjust)))
  833.  
  834. (deftrap _setsysjust ((newjust :signed-integer))
  835.    nil
  836.    (:no-trap (%put-word (%int-to-ptr 2988) newjust)))
  837.  
  838. (deftrap _intltokenize ((tokenparam (:pointer :tokenblock)))
  839.    (:stack :unsigned-byte)
  840.    (:stack-trap #xA8B5 tokenparam ((+ (ash 33284 16) 65530) :signed-longint)))
  841.  
  842. (deftrap _fonttoscript ((fontnumber :signed-integer))
  843.    (:stack :signed-integer)
  844.    (:stack-trap #xA8B5 fontnumber ((+ (ash 33282 16) 6) :signed-longint)))
  845.  
  846. (deftrap _font2script ((fontnumber :signed-integer))
  847.    (:stack :signed-integer)
  848.    (:stack-trap #xA8B5 fontnumber ((+ (ash 33282 16) 6) :signed-longint)))
  849.  
  850. (deftrap _getsmvariable ((selector :signed-integer))
  851.    (:stack :signed-long)
  852.    (:stack-trap #xA8B5 selector ((+ (ash 33794 16) 8) :signed-longint)))
  853.  
  854. (deftrap _getenvirons ((verb :signed-integer))
  855.    (:stack :signed-long)
  856.    (:stack-trap #xA8B5 verb ((+ (ash 33794 16) 8) :signed-longint)))
  857.  
  858. (deftrap _setsmvariable ((selector :signed-integer) (param :signed-long))
  859.    (:stack :signed-integer)
  860.    (:stack-trap #xA8B5 selector param ((+ (ash 33286 16) 10) :signed-longint)))
  861.  
  862. (deftrap _setenvirons ((verb :signed-integer) (param :signed-long))
  863.    (:stack :signed-integer)
  864.    (:stack-trap #xA8B5 verb param ((+ (ash 33286 16) 10) :signed-longint)))
  865.  
  866. (deftrap _getscriptvariable ((script :signed-integer) (selector :signed-integer))
  867.    (:stack :signed-long)
  868.    (:stack-trap #xA8B5 script selector ((+ (ash 33796 16) 12) :signed-longint)))
  869.  
  870. (deftrap _getscript ((script :signed-integer) (verb :signed-integer))
  871.    (:stack :signed-long)
  872.    (:stack-trap #xA8B5 script verb ((+ (ash 33796 16) 12) :signed-longint)))
  873.  
  874. (deftrap _setscriptvariable ((script :signed-integer) (selector :signed-integer) (param :signed-long))
  875.    (:stack :signed-integer)
  876.    (:stack-trap #xA8B5 script selector param ((+ (ash 33288 16) 14) :signed-longint)))
  877.  
  878. (deftrap _setscript ((script :signed-integer) (verb :signed-integer) (param :signed-long))
  879.    (:stack :signed-integer)
  880.    (:stack-trap #xA8B5 script verb param ((+ (ash 33288 16) 14) :signed-longint)))
  881.  
  882. ;   New for 7.1  
  883.  
  884.  
  885. (deftrap _getscriptutilityaddress ((selector :signed-integer) (before :boolean) (script :signed-integer))
  886.    (:stack :pointer)
  887.    (:stack-trap #xA8B5 selector before script ((+ (ash 50180 16) 56) :signed-longint)))
  888.  
  889. (deftrap _setscriptutilityaddress ((selector :signed-integer) (before :boolean) (routineaddr :pointer) (script :signed-integer))
  890.    nil
  891.    (:stack-trap #xA8B5 selector before routineaddr script ((+ (ash 49160 16) 58) :signed-longint)))
  892.  
  893. (deftrap _getscriptqdpatchaddress ((trapnum :signed-integer) (before :boolean) (forprinting :boolean) (script :signed-integer))
  894.    (:stack :pointer)
  895.    (:stack-trap #xA8B5 trapnum before forprinting script ((+ (ash 50182 16) 60) :signed-longint)))
  896.  
  897. (deftrap _setscriptqdpatchaddress ((trapnum :signed-integer) (before :boolean) (forprinting :boolean) (routineaddr :pointer) (script :signed-integer))
  898.    nil
  899.    (:stack-trap #xA8B5 trapnum before forprinting routineaddr script ((+ (ash 49162 16) 62) :signed-longint)))
  900.  
  901.  
  902. (deftrap _characterbytetype ((textbuf :pointer) (textoffset :signed-integer) (script :signed-integer))
  903.    (:stack :signed-integer)
  904.    (:stack-trap #xA8B5 textbuf textoffset script ((+ (ash 49670 16) 16) :signed-longint)))
  905.  
  906. (deftrap _charactertype ((textbuf :pointer) (textoffset :signed-integer) (script :signed-integer))
  907.    (:stack :signed-integer)
  908.    (:stack-trap #xA8B5 textbuf textoffset script ((+ (ash 49670 16) 18) :signed-longint)))
  909.  
  910. (deftrap _transliteratetext ((srchandle :handle) (dsthandle :handle) (target :signed-integer) (srcmask :signed-long) (script :signed-integer))
  911.    (:stack :signed-integer)
  912.    (:stack-trap #xA8B5 srchandle dsthandle target srcmask script ((+ (ash 49678 16) 24) :signed-longint)))
  913.  
  914. (deftrap _fillparsetable ((table (:pointer :charbytetable)) (script :signed-integer))
  915.    (:stack :boolean)
  916.    (:stack-trap #xA8B5 table script ((+ (ash 49668 16) 34) :signed-longint)))
  917.  
  918. ;   Moved from packages.p  
  919.  
  920.  
  921. (deftrap _getintlresource ((theid :signed-integer))
  922.    (:stack :handle)
  923.    (:stack-trap #xA9ED theid (6 :signed-integer)))
  924.  
  925. (deftrap _iugetintl ((theid :signed-integer))
  926.    (:stack :handle)
  927.    (:stack-trap #xA9ED theid (6 :signed-integer)))
  928.  
  929. (deftrap _iusetintl ((refnum :signed-integer) (theid :signed-integer) (intlhandle :handle))
  930.    nil
  931.    (:stack-trap #xA9ED refnum theid intlhandle (8 :signed-integer)))
  932.  
  933. (deftrap _clearintlresourcecache nil
  934.    nil
  935.    (:stack-trap #xA9ED (24 :signed-integer)))
  936.  
  937. (deftrap _iuclearcache nil
  938.    nil
  939.    (:stack-trap #xA9ED (24 :signed-integer)))
  940.  
  941.  
  942. (deftrap _getintlresourcetable ((script :signed-integer) (tablecode :signed-integer) (itlhandle (:pointer :handle)) (offset (:pointer :signed-long)) (length (:pointer :signed-long)))
  943.    nil
  944.    (:stack-trap #xA9ED script tablecode itlhandle offset length (36 :signed-integer)))
  945.  
  946. (deftrap _iugetitltable ((script :signed-integer) (tablecode :signed-integer) (itlhandle (:pointer :handle)) (offset (:pointer :signed-long)) (length (:pointer :signed-long)))
  947.    nil
  948.    (:stack-trap #xA9ED script tablecode itlhandle offset length (36 :signed-integer)))
  949.  
  950. ; $ENDC                         ;  UsingScript 
  951.  
  952. ; $IFC NOT UsingIncludes
  953.  
  954. ; $ENDC
  955.  
  956.  
  957. (export '($CRASH $BADENDING $BADDELIM $STRINGOVERFLOW $TOKENOVERFLOW $TOKENOK
  958.           $IUWHITESPACELIST $IUUNTOKENTABLE $IUNUMBERPARTSTABLE
  959.           $IUWORDWRAPTABLE $IUWORDSELECTTABLE $SMWHITESPACELIST $SMUNTOKENTABLE
  960.           $SMNUMBERPARTSTABLE $SMWORDWRAPTABLE $SMWORDSELECTTABLE $TOKENCARAT
  961.           $TOKENTILDA $DELIMPAD $TOKENNIL $TOKENCENTERDOT $TOKENELLIPSIS
  962.           $TOKENPERTHOUSAND $TOKENRIGHTSINGGUILLEMET $TOKENLEFTSINGGUILLEMET
  963.           $TOKENINTLCURRENCY $TOKENFRACTION $TOKENNOBREAKSPACE $TOKENDOLLAR
  964.           $TOKENHASH $TOKENCOLON $TOKENINFINITY $TOKENCAPPI $TOKENMICRO
  965.           $TOKENINTEGRAL $TOKENSIGMA $TOKENROOT $TOKENPI $TOKENQUESTION
  966.           $TOKENBAR $TOKENATSIGN $TOKENAMPERSAND $TOKENUNDERLINE $TOKENCARET
  967.           $TOKENPERCENT $TOKENSEMICOLON $TOKEN1QUOTE $TOKEN2QUOTE
  968.           $TOKENRIGHT1QUOTE $TOKENLEFT1QUOTE $TOKENRIGHT2QUOTE $TOKENLEFT2QUOTE
  969.           $TOKENPERIOD $TOKENCOMMA $TOKENTILDE $TOKENEXCLAM $TOKENEXCLAMEQUAL
  970.           $TOKENLESSGREAT $TOKENNOTEQUAL $TOKENCOLONEQUAL $TOKEN2EQUAL
  971.           $TOKENGREATEQUAL1 $TOKENGREATEQUAL2 $TOKENLESSEQUAL1 $TOKENLESSEQUAL2
  972.           $TOKENEQUAL $TOKENGREAT $TOKENLESS $TOKENBACKSLASH $TOKENSLASH
  973.           $TOKENPLUSMINUS $TOKENDIVIDE $TOKENASTERISK $TOKENMINUS $TOKENPLUS
  974.           $TOKENRIGHTENCLOSE $TOKENLEFTENCLOSE $TOKENRIGHTCURLY $TOKENLEFTCURLY
  975.           $TOKENRIGHTBRACKET $TOKENLEFTBRACKET $TOKENRIGHTPAREN $TOKENLEFTPAREN
  976.           $TOKENRESERVE2 $TOKENRESERVE1 $TOKENALTREAL $TOKENREALNUM
  977.           $TOKENALTNUM $TOKENESCAPE $TOKENLITERAL $TOKENRIGHTCOMMENT
  978.           $TOKENLEFTCOMMENT $TOKENNEWLINE $TOKENNUMERIC $TOKENALPHA
  979.           $TOKENRIGHTLIT $TOKENLEFTLIT $TOKENWHITE $TOKENUNKNOWN $TOKENEMPTY
  980.           $TOKENINTL $HACHEK $OGONEK $DOUBLEACUTE $CEDILLA $RINGMARK $OVERDOT
  981.           $BREVEMARK $MACRON $TILDE $CIRCUMFLEX $DOTLESSLWRI $GRAVEUPRU
  982.           $CIRCUMFLEXUPRU $ACUTEUPRU $GRAVEUPRO $APPLELOGO $CIRCUMFLEXUPRO
  983.           $ACUTEUPRO $GRAVEUPRI $DIAERESISUPRI $CIRCUMFLEXUPRI $ACUTEUPRI
  984.           $GRAVEUPRE $DIAERESISUPRE $ACUTEUPRA $CIRCUMFLEXUPRE $CIRCUMFLEXUPRA
  985.           $PERTHOUSAND $BASEDBLQUOTE $BASESINGQUOTE $CENTEREDDOT $DBLDAGGER
  986.           $FLLIGATURE $FILIGATURE $RIGHTSINGGUILLEMET $LEFTSINGGUILLEMET
  987.           $INTLCURRENCY $FRACTION $DIAERESISUPRY $SMUPRHALFCHARSET $SMFONDEND
  988.           $SMFONDSTART $ROMANFLAGS $ROMANAPPFOND $ROMANSYSFOND
  989.           $SMFUSEASSOCFONTINFO $SMFNAMETAGENAB $SMFDUALCARET $SMFSHOWICON
  990.           $SMSFREVERSE $SMSFLIGATURES $SMSFFORMS $SMSFSYNCHUNSTYLEDTE
  991.           $SMSFUNIVEXT $SMSFAUTOINIT $SMSFB0DIGITS $SMSFNOFORCEFONT
  992.           $SMSFCONTEXT $SMSFNATCASE $SMSFSINGBYTE $SMSFINTELLCP $SMKEYROMAN
  993.           $SMKEYSETDIRRIGHTLEFT $SMKEYSETDIRLEFTRIGHT $SMKEYDISABLEKYBDSWITCH
  994.           $SMKEYSWAPINPUTMETHOD $SMKEYNEXTINPUTMETHOD $SMKEYTOGGLEDIRECTION
  995.           $SMKEYTOGGLEINLINE $SMKEYENABLEKYBDS $SMKEYDISABLEKYBDS
  996.           $SMKEYSWAPKYBD $SMKEYNEXTKYBD $SMKEYSWAPSCRIPT $SMKEYSYSSCRIPT
  997.           $SMKEYNEXTSCRIPT $IUCURRENTSCRIPT $IUSYSTEMSCRIPT $SMSCRIPTALIASSTYLE
  998.           $SMSCRIPTVALIDSTYLES $SMSCRIPTHELPFONDSIZE $SMSCRIPTAPPFONDSIZE
  999.           $SMSCRIPTSYSFONDSIZE $SMSCRIPTSMALLFONDSIZE $SMSCRIPTPREFFONDSIZE
  1000.           $SMSCRIPTMONOFONDSIZE $SMSCRIPTNAME $SMSCRIPTFILE $SMSCRIPTCREATOR
  1001.           $SMSCRIPTTRAP $SMSCRIPTPRINT $SMSCRIPTICON $SMSCRIPTKEYS
  1002.           $SMSCRIPTNUMDATE $SMSCRIPTLANG $SMSCRIPTENCODING $SMSCRIPTTOKEN
  1003.           $SMSCRIPTFLAGS $SMSCRIPTSORT $SMSCRIPTDATE $SMSCRIPTNUMBER
  1004.           $SMSCRIPTBUNDLE $SMSCRIPTAPPFOND $SMSCRIPTSYSFOND $SMSCRIPTREDRAW
  1005.           $SMSCRIPTJUST $SMSCRIPTRIGHT $SMSCRIPTENABLED $SMSCRIPTMUNGED
  1006.           $SMSCRIPTVERSION $SMKEYDISABLESTATE $SMREGIONCODE $SMKCHRCACHE
  1007.           $SMDOUBLEBYTE $SMCHARPORTION $SMOVERRIDE $SMGENFLAGS $SMKEYSWAP
  1008.           $SMKEYCACHE $SMSYSREF $SMKEYSCRIPT $SMLASTSCRIPT $SMSYSSCRIPT
  1009.           $SMPRINT $SMDEFAULT $SMFORCED $SMINTLFORCE $SMFONTFORCE $SMBIDIRECT
  1010.           $SMENABLED $SMMUNGED $SMVERSION $SMREDRAWLINE $SMREDRAWWORD
  1011.           $SMREDRAWCHAR $SMBADSCRIPT $SMBADVERB $SMNOTINSTALLED
  1012.           $SMMASKBOPOMOFO2 $SMMASKJAMO2 $SMMASKHANGUL2 $SMMASKGANA2
  1013.           $SMMASKKANA2 $SMMASKKANA1 $SMMASKASCII2 $SMMASKASCII1 $SMMASKNATIVE
  1014.           $SMMASKASCII $SMMASKALL $SMTRANSPRELOWERCASING
  1015.           $SMTRANSPREDOUBLEBYTING $SMTRANSHANGULFORMAT $SMTRANSRULEBASEFORMAT
  1016.           $SMTRANSUPPER $SMTRANSLOWER $SMTRANSBOPOMOFO2 $SMTRANSJAMO2
  1017.           $SMTRANSHANGUL2 $SMTRANSGANA2 $SMTRANSKANA2 $SMTRANSKANA1
  1018.           $SMTRANSASCII2 $SMTRANSASCII1 $SMTRANSSYSTEM $SMTRANSCASE
  1019.           $SMTRANSNATIVE $SMTRANSASCII $SMCHAR2BYTE $SMCHAR1BYTE $SMCHARUPPER
  1020.           $SMCHARLOWER $SMCHARRIGHT $SMCHARLEFT $SMCHARVERTICAL
  1021.           $SMCHARHORIZONTAL $SMJAMOBOGMOEUM $SMJAMOMOEUM $SMJAMOBOGJAEUM
  1022.           $SMJAMOJAEUM $SMFISCLASSUSER $SMFISCLASSLVL2 $SMFISCLASSLVL1
  1023.           $SMIDEOGRAPHICUSER $SMIDEOGRAPHICLEVEL2 $SMIDEOGRAPHICLEVEL1
  1024.           $SMKANASOFTOK $SMKANAHARDOK $SMKANASMALL $SMPUNCTGRAPHIC
  1025.           $SMPUNCTREPEAT $SMPUNCTBLANK $SMPUNCTSYMBOL $SMPUNCTNUMBER
  1026.           $SMPUNCTNORMAL $SMCHARFISRUSSIAN $SMCHARFISGREEK $SMCHARFISIDEO
  1027.           $SMCHARFISGANA $SMCHARFISKANA $SMCHARBOPOMOFO $SMCHARJAMO
  1028.           $SMCHARHANGUL $SMCHARNONCONTEXTUALLR $SMCHARCONTEXTUALLR
  1029.           $SMCHARBIDIRECT $SMCHARTWOBYTERUSSIAN $SMCHARTWOBYTEGREEK
  1030.           $SMCHARIDEOGRAPHIC $SMCHARHIRAGANA $SMCHARKATAKANA $SMCHAREXTASCII
  1031.           $SMCHAREURO $SMCHARASCII $SMCHARPUNCT $SMCDOUBLEMASK $SMCUPPERMASK
  1032.           $SMCRIGHTMASK $SMCORIENTATIONMASK $SMCCLASSMASK $SMCRESERVED
  1033.           $SMCTYPEMASK $SMMIDDLEBYTE $SMLASTBYTE $SMFIRSTBYTE $SMSINGLEBYTE
  1034.           $INTOUTPUTMASK $INTEUROPEAN $INTJAPANESE $INTROMAN $INTARABIC
  1035.           $INTWESTERN $CALPERSIAN $CALCOPTIC $CALJEWISH $CALJAPANESE
  1036.           $CALARABICLUNAR $CALARABICCIVIL $CALGREGORIAN $VERINDIA
  1037.           $VERYUGOSLAVIA $VERARABIA $VERBELGIUMLUX $MAXCOUNTRY $MINCOUNTRY
  1038.           $VERTHAILAND $VERTAIWAN $VERCHINA $VERKOREA $VERIRELAND $VERRUSSIA
  1039.           $VERIRAN $VERFAEROEISL $VERLAPLAND $VERLATVIA $VERESTONIA $VERHUNGARY
  1040.           $VERPOLAND $VERLITHUANIA $VERPAKISTAN $VERINDIAHINDI $VERYUGOCROATIAN
  1041.           $VERTURKEY $VERCYPRUS $VERMALTA $VERICELAND $VERGREECE $VERGRSWISS
  1042.           $VERFRSWISS $VERFINLAND $VERARABIC $VERAUSTRALIA $VERJAPAN $VERISRAEL
  1043.           $VERNORWAY $VERFRCANADA $VERPORTUGAL $VERDENMARK $VERSPAIN $VERSWEDEN
  1044.           $VERFRBELGIUMLUX $VERNETHERLANDS $VERITALY $VERGERMANY $VERBRITAIN
  1045.           $VERFRANCE $VERUS $LANGCHINESE $LANGYUGOSLAVIAN $LANGMALTA
  1046.           $LANGPORTUGESE $LANGSUNDANESEROM $LANGJAVANESEROM $LANGDZONGKHA
  1047.           $LANGUIGHUR $LANGTATAR $LANGAYMARA $LANGGUARANI $LANGQUECHUA
  1048.           $LANGLATIN $LANGCATALAN $LANGBASQUE $LANGWELSH $LANGESPERANTO
  1049.           $LANGMALAGASY $LANGCHEWA $LANGRUNDI $LANGRUANDA $LANGSWAHILI
  1050.           $LANGSOMALI $LANGOROMO $LANGGALLA $LANGTIGRINYA $LANGAMHARIC
  1051.           $LANGMALAYARABIC $LANGMALAYROMAN $LANGTAGALOG $LANGINDONESIAN
  1052.           $LANGVIETNAMESE $LANGLAO $LANGKHMER $LANGBURMESE $LANGSINHALESE
  1053.           $LANGTELUGU $LANGTAMIL $LANGKANNADA $LANGMALAYALAM $LANGORIYA
  1054.           $LANGPUNJABI $LANGGUJARATI $LANGASSAMESE $LANGBENGALI $LANGMARATHI
  1055.           $LANGSANSKRIT $LANGNEPALI $LANGTIBETAN $LANGSINDHI $LANGKASHMIRI
  1056.           $LANGKURDISH $LANGPASHTO $LANGMONGOLIANCYR $LANGMONGOLIAN
  1057.           $LANGTURKMEN $LANGTAJIKI $LANGKIRGHIZ $LANGMOLDAVIAN $LANGGEORGIAN
  1058.           $LANGARMENIAN $LANGAZERBAIJANAR $LANGAZERBAIJANI $LANGKAZAKH
  1059.           $LANGUZBEK $LANGBYELORUSSIAN $LANGUKRAINIAN $LANGBULGARIAN
  1060.           $LANGMACEDONIAN $LANGSERBIAN $LANGYIDDISH $LANGSLOVENIAN $LANGSLOVAK
  1061.           $LANGCZECH $LANGROMANIAN $LANGALBANIAN $LANGIRISH $LANGFLEMISH
  1062.           $LANGSIMPCHINESE $LANGRUSSIAN $LANGPERSIAN $LANGFARSI $LANGFAEROESE
  1063.           $LANGLAPPISH $LANGLAPPONIAN $LANGLATVIAN $LANGLETTISH $LANGESTONIAN
  1064.           $LANGHUNGARIAN $LANGPOLISH $LANGLITHUANIAN $LANGKOREAN $LANGTHAI
  1065.           $LANGHINDI $LANGURDU $LANGTRADCHINESE $LANGCROATIAN $LANGTURKISH
  1066.           $LANGMALTESE $LANGICELANDIC $LANGGREEK $LANGFINNISH $LANGARABIC
  1067.           $LANGJAPANESE $LANGHEBREW $LANGNORWEGIAN $LANGPORTUGUESE $LANGDANISH
  1068.           $LANGSPANISH $LANGSWEDISH $LANGDUTCH $LANGITALIAN $LANGGERMAN
  1069.           $LANGFRENCH $LANGENGLISH $SMSINDHI $SMSLAVIC $SMAMHARIC $SMRUSSIAN
  1070.           $SMCHINESE $SMKLINGON $SMUNINTERP $SMEXTARABIC $SMVIETNAMESE
  1071.           $SMEASTEURROMAN $SMETHIOPIC $SMGEEZ $SMMONGOLIAN $SMTIBETAN
  1072.           $SMSIMPCHINESE $SMARMENIAN $SMGEORGIAN $SMLAOTIAN $SMTHAI $SMKHMER
  1073.           $SMBURMESE $SMSINHALESE $SMMALAYALAM $SMKANNADA $SMTELUGU $SMTAMIL
  1074.           $SMBENGALI $SMORIYA $SMGUJARATI $SMGURMUKHI $SMDEVANAGARI $SMRSYMBOL
  1075.           $SMCYRILLIC $SMGREEK $SMHEBREW $SMARABIC $SMKOREAN $SMTRADCHINESE
  1076.           $SMJAPANESE $SMROMAN $SMALLSCRIPTS $SMCURRENTSCRIPT $SMSYSTEMSCRIPT))
  1077. (provide-interface 'new script)